home *** CD-ROM | disk | FTP | other *** search
- -- card: 4401 from stack: in.6
- -- bmap block id: 6149
- -- flags: 0000
- -- background id: 2598
- -- name: rn
- ----- HyperTalk script -----
-
- on HideLetterBs
- global NewsLState
- hide card button id 11
- hide card button id 4
- hide card button id 5
- put "list" into NewsLState
- end HideLetterBs
-
- on ShowLetterBs
- global NewslState
- show card button id 11
- show card button id 4
- show card button id 5
- put "letter" into NewslState
- end ShowLetterBs
-
- on HideListBs
- global NewslState
- hide card button id 10
- hide card button id 9
- hide card button id 12
- put "letter" into NewslState
- end HideListBs
- on ShowListBs
- global NewslState
- SHow card button id 10
- show card button id 9
- show card button id 12
- put "list" into NewslState
- end ShowListBs
-
- on NewsStateDef
- global NewsState, CommStorage
- openascii
- put false into OK
- repeat until OK
- put "not in .newsrc--add?" into x
- if x is in card field 1 then
- put empty into card field 1
- writeascii "y" & return
- displayscreen "dis","Put newsgroup where?"
- writeascii return
- displayscreen "dis"
- else
- put true into OK
- end if
- end repeat
- if ("unread article" is in card field 1) then
- put offset("unread article",card field 1) into offsetti
- put char offsetti to offsetti+80 of card field 1 into rivi
- put offset("--read now?",rivi) into off2
- get char 20 to off2-1 of rivi
- put "<" & it & ">" into card field "Listan Nimi" of card "rn"
- else if (("article" & space is in line 1 to 3 of card field 1) and (" in" & space is in line 1 to 3 of card field 1)) then
- get offset("article", line 1 to 3 of card field 1)
- put char it to it+80 of card field 1 into rivi
- get second word of rivi
- put it into card field "Letter Number"
- put offset(" in ",line 1 to 3 of card field 1) into offsetti
- put char offsetti to offsetti+80 of line 1 to 3 of card field 1 into rivi
- --put rivi
- put offset(":",rivi) into off2
- get offset(" (",rivi)
- if it > 0 then
- if it < off2 then
- put it into off2
- end if
- end if
- if off2 > 0 then
- get char 5 to off2-1 of rivi
- put "<" & it & ">" into card field "Listan Nimi" of card "rn"
- end if
- end if
-
- hide message
- put space into NewsState
- -- unread articles in
- if offset("unread article",card field 1) > 0 then
- put "List" into NewsState
- ShowListBs
- HideLetterBs
- end if
- if offset("End of article",card field 1) > 0 then
- ShowLetterBs
- HideListBs
- hide card button id 5
- put "Letter end of" into NewsState
- end if
- if offset("--MORE--(",card field 1) > 0 or offset("[Type space to",card field 1) > 0 then
- ShowLetterBs
- HideListBs
- put "Letter more" into NewsState
- show card button id 5
- end if
-
- put NewsState into card field "UserMessage"
- closeascii
- end NewsStateDef
-
- on opencard
- global XonXoff
- put true into XonXoff
- send mouseup to card button id 38
- -- put "Card Open"
- -- NewsStateDef
- end opencard
-
-
-
-
- -- part 2 (field)
- -- low flags: 02
- -- high flags: 6007
- -- rect: left=8 top=71 right=337 bottom=505
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 4
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name: Field 1
-
-
- -- part 3 (field)
- -- low flags: 01
- -- high flags: 2002
- -- rect: left=435 top=17 right=34 bottom=509
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 4
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name: LineCount
-
-
- -- part 4 (button)
- -- low flags: 00
- -- high flags: A004
- -- rect: left=0 top=41 right=59 bottom=127
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Next Letter
- ----- HyperTalk script -----
- on mouseUp
- openascii
- writeascii "n"
- put space into card field 1
- displayscreen "dis",")--what next?","--more--("
- closeascii
- NewsStateDef
-
- end mouseUp
-
-
-
- -- part 5 (button)
- -- low flags: 00
- -- high flags: A004
- -- rect: left=0 top=59 right=77 bottom=127
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Next page
- ----- HyperTalk script -----
- on mouseUp
- openascii
- writeascii " "
- put space into card field 1
- displayscreen "dis",")--what next?","--more--("
- closeascii
- NewsStateDef
-
- end mouseUp
-
-
-
- -- part 7 (button)
- -- low flags: 00
- -- high flags: A004
- -- rect: left=302 top=23 right=41 bottom=452
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Quit News
- ----- HyperTalk script -----
- on mouseUp
- openascii
- writeascii "q"
- wait 1 sec
- writeascii "q"
- wait 1 sec
- writeascii "q" & return
- put empty into card field 1
- displayscreen "dis","% "
- visual effect iris close
- go card "News"
- closeascii
- end mouseUp
-
-
-
- -- part 8 (field)
- -- low flags: 01
- -- high flags: 0004
- -- rect: left=281 top=325 right=342 bottom=486
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: UserMessage
-
-
- -- part 9 (button)
- -- low flags: 00
- -- high flags: A004
- -- rect: left=12 top=60 right=78 bottom=120
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Read this list
- ----- HyperTalk script -----
- on mouseUp
- openascii
- writeascii "y"
- put space into card field 1
- displayscreen "dis","--more--"
- closeascii
- NewsStateDef
-
- end mouseUp
-
-
-
- -- part 10 (button)
- -- low flags: 00
- -- high flags: A004
- -- rect: left=12 top=23 right=42 bottom=120
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Next list
- ----- HyperTalk script -----
- on mouseup
- openascii
- writeascii "n"
- put space into card field 1
- displayscreen "dis","--read now?"
- closeascii
- NewsStateDef
-
- end mouseup
-
-
-
- -- part 11 (button)
- -- low flags: 80
- -- high flags: A004
- -- rect: left=0 top=23 right=40 bottom=127
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Quit this list
- ----- HyperTalk script -----
- on mouseup
- global NewsState
- openascii
- writeascii "q"
-
- if NewsState is "Letter more" then
- displayscreen "dis","--what next?"
- writeascii "q"
- end if
-
- put empty into card field 1
- displayscreen "dis","--read now?"
- closeascii
- NewsStateDef
-
- end mouseup
-
-
-
- -- part 12 (button)
- -- low flags: 00
- -- high flags: A004
- -- rect: left=12 top=42 right=60 bottom=120
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Previous list
- ----- HyperTalk script -----
- on mouseup
- openascii
- writeascii "p"
- put space into card field 1
- displayscreen "dis","--read now?"
- closeascii
- NewsStateDef
-
- end mouseup
-
-
-
- -- part 14 (button)
- -- low flags: 00
- -- high flags: A004
- -- rect: left=129 top=23 right=41 bottom=290
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Other buttons
- ----- HyperTalk script -----
- on mouseup
- global NewslState
- if Newslstate is "letter"
- then show card button id 33
- if Newslstate is "letter"
- then show card button id 34
- if Newslstate is "letter"
- then show card button id 35
- show card button id 36
- show card button id 37
- show card button id 38
- if Newslstate is "letter"
- then show card button id 27
- end mouseup
-
-
-
- -- part 16 (button)
- -- low flags: 00
- -- high flags: A004
- -- rect: left=129 top=42 right=59 bottom=300
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Get again number ...
- ----- HyperTalk script -----
- on mouseup
- global NewsState
- openascii
- put card field "Letter Number" into LN
- ask "Anna kirjeen numero" with LN
- writeascii it & return
- put space into card field 1
- displayscreen "dis","--more--("
- closeascii
- NewsStateDef
-
- end mouseup
-
-
-
- -- part 22 (button)
- -- low flags: 00
- -- high flags: A004
- -- rect: left=389 top=325 right=342 bottom=489
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Speak Text
- ----- HyperTalk script -----
- on mouseUp
- ReadField1
- end mouseUp
-
-
-
- -- part 23 (button)
- -- low flags: 00
- -- high flags: A004
- -- rect: left=460 top=23 right=41 bottom=510
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: PANIC
- ----- HyperTalk script -----
- on mouseup
- PANIC
- end mouseup
-
-
-
- -- part 24 (button)
- -- low flags: 00
- -- high flags: A004
- -- rect: left=302 top=42 right=59 bottom=494
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Get subjects of this list
- ----- HyperTalk script -----
- on mouseUp
- go card "News Sisällys"
- --openascii
- --writeascii "="
- --put space into card field 1
- --displayscreen "dis"
- --NewsStateDef
- --closeascii
- end mouseUp
-
-
-
- -- part 25 (button)
- -- low flags: 00
- -- high flags: A004
- -- rect: left=129 top=60 right=78 bottom=326
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Mark list as read
- ----- HyperTalk script -----
- on mouseUp
- openascii
- writeascii "c"
- put space into card field 1
- displayscreen "dis","Do you really want"
- writeascii "y"
- displayscreen "dis","--read now?"
- closeascii
- NewsStateDef
-
- end mouseUp
-
-
-
- -- part 26 (field)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=12 top=330 right=342 bottom=225
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 256
- -- line height: 12
- -- part name: Listan Nimi
-
-
- -- part 27 (button)
- -- low flags: 80
- -- high flags: A004
- -- rect: left=348 top=189 right=208 bottom=486
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Reply to this letter
- ----- HyperTalk script -----
- on mouseUp
-
- openascii
- put empty into card field 1
- writeascii numtochar(26) -- C-z
- displayscreen "dis","%"
- writeascii "cat >! /tmp/NewsSend" & return
- displayscreen "dis"
- go card "rn-send"
- put space into card field 1
- closeascii
- end mouseUp
-
-
-
- -- part 29 (button)
- -- low flags: 00
- -- high flags: A004
- -- rect: left=280 top=325 right=342 bottom=391
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Any Command
- ----- HyperTalk script -----
- on mouseUp
- global CommStorage
- put Getprompt ("%",return & "$ ") into prompt
- openascii
- ask "Komento"
- -- put it
- writeascii numtochar(17) & it & return
- put space into card field 1
- displayscreen "dis",prompt
- closeascii
- NewsStateDef
- end mouseUp
-
-
-
- -- part 31 (field)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=209 top=329 right=341 bottom=266
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 3
- -- text size: 9
- -- style flags: 256
- -- line height: 12
- -- part name: Letter Number
-
-
- -- part 33 (button)
- -- low flags: 80
- -- high flags: A004
- -- rect: left=300 top=171 right=188 bottom=487
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Save letter to Unix file
- ----- HyperTalk script -----
- on mouseup
- global temp
- openascii
- ask "Anna tiedoston nimi, johon talletetaan." with temp
- put it into temp
- writeascii "s" && it & return
- put space into card field 1
- set cursor to watch
- repeat 100 times
- put space into card field 1
- displayscreen "dis"
- get offset("use mailbox format?",card field 1)
- if it > 0 then
- writeascii "y" & return
- end if
- get offset("Saved to",card field 1)
- if it > 0 then exit repeat
- get offset("Appended to",card field 1)
- if it > 0 then exit repeat
- wait 1 sec
- end repeat
- closeascii
- NewsStateDef
-
- end mouseup
-
-
-
- -- part 34 (button)
- -- low flags: 80
- -- high flags: A004
- -- rect: left=326 top=210 right=228 bottom=487
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Save BINHEX to Macintosh
- ----- HyperTalk script -----
- on mouseup
- savebinhex "End of article"
- NewsStateDef
- end mouseup
-
-
-
- -- part 35 (button)
- -- low flags: 80
- -- high flags: A004
- -- rect: left=333 top=113 right=130 bottom=487
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Save Letter to Macintosh disc
- ----- HyperTalk script -----
- on mouseup
- global NewsState
- openascii
- put empty into card field 1
- writeascii card field "Letter Number" & return
- displayscreen "dis","--more--("
- delete line 1 to 2 of card field 1
- ask "Anna nimi, jolle tämä kirje talletetaan."
- put it into BINHEXNIMI
- answer "Vaihdetaanko sulut ÅÖÄ-kirjaimiksi?" with "Ei" or "Kyllä"
- put it into vaihto
- put false into OK
- repeat until OK
- get offset(":",BINHEXNIMI)
- if it > 0 then
- put "-" into char it of BINHEXNIMI
- put "Nimestä poistettu :-merkki. Nimi on nyt " & BINHEXNIMI
- else
- put true into OK
- end if
- end repeat
- open file BINHEXNIMI
- repeat 1000 times
- get number of lines of card field 1
- put it into n
- if vaihto is "Kyllä" then
- replace "{","ä"
- replace "|","├╢"
- replace "[","Ä"
- replace "\","Ö"
- end if
-
- repeat with i = 1 to n
- get line i of card field 1
- put it
- if offset("--MORE--(",it) > 0 then exit repeat
- write it & return to file BINHEXNIMI
- end repeat
- get offset("End of article",card field 1)
- if it > 0 then exit repeat
- writeascii " "
- put space into card field 1
- displayscreen "dis","--more--(","end of article"
- end repeat
- close file BINHEXNIMI
- displayscreen "dis"
- closeascii
- NewsStateDef
- put "Kirje on talletettu HyperCard -kansioon nimelle" && BINHEXNIMI
- end mouseup
-
-
-
-
- -- part 36 (button)
- -- low flags: 80
- -- high flags: A004
- -- rect: left=337 top=132 right=149 bottom=487
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Unsubscribe list
- ----- HyperTalk script -----
- on mouseUp
- openascii
- writeascii "u"
- put space into card field 1
- displayscreen "dis","--read now?"
- closeascii
- NewsStateDef
- end mouseUp
-
-
-
- -- part 37 (button)
- -- low flags: 80
- -- high flags: A004
- -- rect: left=320 top=150 right=169 bottom=487
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Go to named list
- ----- HyperTalk script -----
- on mouseUp
- openascii
- ask "Anna listan nimi."
- writeascii "g " & it & return
- put space into card field 1
- displayscreen "dis","read now?"
- writeascii "y" & return
- displayscreen "dis"
- closeascii
- NewsStateDef
-
- end mouseUp
-
-
-
- -- part 38 (button)
- -- low flags: 80
- -- high flags: A004
- -- rect: left=129 top=24 right=41 bottom=451
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Hide extra buttons
- ----- HyperTalk script -----
- on mouseup
- Hide card button id 33
- Hide card button id 34
- Hide card button id 35
- Hide card button id 36
- Hide card button id 37
- Hide card button id 38
- Hide card button id 27
-
- end mouseup
-
-
-
- -- part contents for card part 3
- ----- text -----
- Lines 5
-
- -- part contents for card part 8
- ----- text -----
- List
-
- -- part contents for card part 26
- ----- text -----
- <comp.dcom.lans>
-
- -- part contents for card part 31
- ----- text -----
- 465
-
- -- part contents for card part 2
- ----- text -----
-
- 5:42pm@tukki:~% qq
-
- qq: Command not found.
- 5:42pm@tukki:~%